TSomeObject = class(TPersistent)
private
FProp1: Integer;
FProp2: String;
public
procedure Assign(Source: TPersistent)
published
property Prop1: Integer 
                     read FProp1 write FProp1;
property Prop2: String 
                     read FProp2 write FProp2;
end;
